home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / tori / sharedi.cst / 03036_Script_3036 < prev    next >
Text File  |  1983-01-27  |  518b  |  17 lines
  1. on su castart,spritecur
  2.   global ss,valore,lungh_barra,righe_scroll_testo,pezzetto
  3.   set righe_scroll_testo to the linecount of member "articolo" -10
  4.   if ss > 1 then
  5.     set ss to ss-1
  6.     set the scrolltop of member castart to the scrolltop of member castart - valore
  7.     
  8.     set the locv of sprite spritecur to 64+integer ((lungh_barra/righe_scroll_testo)*ss)
  9.     
  10.     
  11.     put "locv in su " the locv of sprite spritecur ,lungh_barra,righe_scroll_testo,ss
  12.     
  13.   else
  14.     beep
  15.     exit
  16.   end if
  17. end